home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / NSPLFRM.PRG < prev    next >
Text File  |  1991-10-28  |  1KB  |  42 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: NSPLFRM.PRG       Copyright: HRF Associates, Inc.                                     
  4. *   Date Created: 10/28/11           Language: Clipper                                             
  5. *   Time Created: 22:44:21             Author: Bob Fogle                                 
  6. *
  7. *.............................................................................
  8. * Supplemental SEGUE function for specifiying document print form name.
  9. * Functionally equivilent to N_SPLFRM function in NETLIB library.
  10. *
  11. FUNCTION NSPLFRM_
  12. *Purpose : To specify banner page text.
  13. *Usage     : NSPLFRM_([<expC1>])
  14. *        :
  15. * Where  : <expC1> = Form Name.
  16. *        :
  17. *        :
  18. PARAMETERS splfrm
  19. LOCAL msplfrm
  20. PRIVATE rtn :=0
  21.  
  22. do while .t.
  23.   * Check to make sure passed variable types are correct.
  24.   if valtype(splfrm)<>'C' .AND. splfrm<>nil
  25.     rtn = -101
  26.     exit
  27.   endi
  28.  
  29.   * Set up defaults
  30.   msplfrm =  if(valtype(splfrm)=='C',splfrm,nil)
  31.  
  32.   * Get/Set form name
  33.   if pcount()=0             // If no arguments, return current setting.
  34.     rtn = PRJBDFG(14)        // Get Default Print Job Flags (Form Name)
  35.   else
  36.     rtn = PRJBDFS(,,,,,,,,,,,,,msplfrm)  // Set Default Print Job Flags (Form Name)
  37.   endi
  38.   exit
  39. endd
  40. RETURN rtn
  41.  
  42.